home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 February
/
EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso
/
progs
/
thor
/
golded
/
style.ged
< prev
next >
Wrap
Text File
|
1996-11-10
|
725b
|
40 lines
/* Style.ged by Troels Walsted Hansen
** $VER: Style.ged v1.00 (09.06.95)
**
** Purpose: Apply style to word.
*/
options results
parse arg stylechar
/* needs GoldED functions */
p = address() || ' ' || show('P',,)
portname = pos('GOLDED.',p)
if portname > 0 then portname = word(substr(p,portname),1)
else
do
say 'No GoldED port found!'
exit 10
end
address(portname)
REQLIST ENTRY '"Bold"' '"Italic"' '"Reverse"' '"Underline"' VAR result TITLE '"Select style"'
select
when(result = 0) then stylechar = '*'
when(result = 1) then stylechar = '/'
when(result = 2) then stylechar = '#'
when(result = 3) then stylechar = '_'
otherwise exit
end
PREV
FIX VAR stylechar
TEXT T stylechar
ENDWORD
RIGHT
TEXT T stylechar